home *** CD-ROM | disk | FTP | other *** search
/ Playboy Electronic Datebook / Playboy Electronic Datebook - Disk 1.img / PBINST.IN_ / PBINST.IN
Text File  |  1993-10-22  |  5KB  |  187 lines
  1. ''***** PBINST.INC for Install  ********''
  2.  
  3.  
  4. ''pbinst.inc
  5. ''$INCLUDE 'setupapi.inc'
  6. ''$INCLUDE 'msdetect.inc'
  7.  
  8. ''Constants-------------------------------------------
  9. CONST CUSTOMDLL = "PBINST.DLL"
  10.  
  11. CONST TRUE  = 1
  12. CONST FALSE = 0
  13.  
  14. CONST IDS_USER_NAME       = 113
  15. CONST IDS_COMPANY_NAME    = 114
  16. CONST IDS_EXPIRATION_COMM = 144  ''** unencrypted
  17. CONST IDS_EXPIRATION      = 147  ''** encrypted
  18. CONST IDS_EXPIRATIONDAY   = 145
  19. CONST IDS_INITIAL_VERSION = 1
  20. CONST IDS_CURRENT_VERSION = 2
  21. CONST IDS_THEMEPACK_DLL_VERSION = 5
  22. CONST IDS_THEMEPACK_NUM_MONTHS = 146
  23. CONST IDS_APPNAME = 97
  24. CONST MISC_DISK_SPACE     = 10240
  25. CONST UPDATE_VERSION = 1
  26. CONST COMMON_DLG_DISK_SPACE = 89248    ''Planner
  27. CONST SOUND_DRV_DISK_SPACE  = 16540    ''Planner
  28.  
  29.  
  30. CONST TEXT1 = 0
  31. CONST TEXT2 = 1
  32.  
  33. ''Dialog ID's
  34. CONST WELCOME      = 100
  35. CONST WELCOMESPLASH = 1600
  36. CONST WELCOMEHELP  = 1100
  37. CONST ASKQUIT      = 200
  38. CONST DESTPATH     = 300
  39. CONST DESTPATH1    = 1200
  40. CONST DESTHELP     = 900
  41. CONST EXITFAILURE  = 400
  42. CONST EXITQUIT     = 600
  43. CONST EXITSUCCESS  = 700
  44. CONST EXITRESTART  = 2300
  45. CONST OPTIONS      = 800
  46. CONST APPHELP      = 900
  47. CONST CBYESNO      = 1000
  48. CONST CUSTINST     = 6200
  49. CONST CUSTINST_NOOPT = 6201
  50. CONST OPTIONSHELP  = 1300
  51. CONST TOOBIG       = 6300
  52. CONST BADPATH      = 6400
  53. CONST CBGETNAMEORG = 7500
  54. CONST CBBADNAME    = 7700
  55. CONST MONTHLISTDLG = 5200
  56. CONST MONTHHELP    = 1400
  57. CONST STARTDATE    = 1500
  58. CONST STARTDATE_NODAY = 2200
  59. CONST DATEHELP     = 2000
  60. CONST DATEHELP_NODAY = 2100
  61. CONST REMOVEDLG    = 1700
  62. CONST REMOVEHELP   = 2700
  63. CONST CONFIRM      = 1800
  64. CONST RESCHOICES   = 2400
  65. CONST RESHELP      = 2600
  66. CONST STARTDATE_INTL = 500
  67. CONST DATEHELP_INTL = 2800
  68. CONST BILLBOARD1   = 8100
  69. CONST BILLBOARD2   = 8200
  70. CONST BILLBOARD3   = 8300
  71. CONST BILLBOARD1_30   = 8101
  72. CONST BILLBOARD2_30   = 8202
  73. CONST BILLBOARD3_30   = 8303
  74.  
  75.  
  76. ''Bitmap ID
  77. CONST LOGO         = 1
  78.  
  79. ''File Types
  80. CONST THEMEPACK    = 1
  81. CONST APPFILES     = 2
  82.  
  83. CONST SINGLEFILE = 1
  84. CONST MULTIFILE  = 0
  85. CONST DATAFILE = 2    ''** THEMEPAL
  86. CONST DATAONLY = 3
  87. CONST DATAMULTI = 4
  88. CONST QUESTION = 1
  89. CONST GRAPHIC  = 0
  90. CONST MAXNUMTP = 20
  91.  
  92. CONST MAX_NUM_RES = 4  ''includes IND, XGA, VGA. and EGA
  93.  
  94. CONST ERR_FAIL = 21 ''general unrecoverable failure
  95.  
  96. '' Globals -------------------------------------------------------------------------
  97. GLOBAL CUIDLL$
  98. GLOBAL HELPPROC$
  99. GLOBAL bRestart%
  100. GLOBAL Install_Type%
  101. GLOBAL iNumMonths%
  102. GLOBAL iNumFiles%
  103. GLOBAL bColor%
  104. GLOBAL bAnimations%
  105. GLOBAL bThemeFileType%
  106. GLOBAL bThemeFormat%
  107. GLOBAL bDDOnDay%
  108. GLOBAL bNoExpire%
  109. GLOBAL bInstallSound%
  110. GLOBAL bInstallCommon%
  111. GLOBAL bInstallCtl3D%
  112. GLOBAL bIsMultimedia%
  113. GLOBAL bAlarmSounds%
  114. GLOBAL szInstallRes$
  115. GLOBAL szExpireText$
  116. GLOBAL bDoUpdate%
  117. GLOBAL bWriteComm%
  118. GLOBAL szReplacePath$
  119. GLOBAL bConversion%
  120.  
  121. ''GLOBAL SYSDATETIME$ ''System date and time.
  122. GLOBAL DEST$        ''Default destination directory.
  123. GLOBAL THEMEDEST$   ''default destination dir for theme pack
  124. GLOBAL WINDRIVE$    ''Windows drive letter.
  125. GLOBAL MONTHOPT%(24)    ''Option selection from Months option dialog.
  126. GLOBAL MONTHLIST$(24)
  127.  
  128. GLOBAL THEME$
  129. GLOBAL bThemeExists%
  130. GLOBAL USERNAME$    ''used for personalize
  131. GLOBAL USERORG$    ''used for personalize
  132. GLOBAL DropDeadDate$ '' holds dropdead date for theme if exists
  133. GLOBAL start_m%
  134. GLOBAL start_y%
  135. GLOBAL end_m%
  136. GLOBAL end_y%
  137. GLOBAL start_d%
  138. GLOBAL end_d%
  139.  
  140. ''CustInst list symbol names
  141. GLOBAL APPNEEDS$      ''Option list costs per drive
  142. GLOBAL THEMENEEDS$
  143. GLOBAL EXTRACOSTS$  ''List of extra costs to add per drive
  144. GLOBAL BIGLIST$     ''List of option files cost calc results (boolean)
  145. GLOBAL BadFileList$  ''List of file NOT to be installed
  146. GLOBAL bHasEnoughDiskSpace%
  147.  
  148. ''ListBox symbol names
  149. GLOBAL LISTITEMSIN$  ''List of strings to show in listbox
  150. GLOBAL LISTITEMSOUT$  ''List of strings selected in listbox dlgproc
  151.  
  152. GLOBAL INIKEYS$     ''List of INI file keys to write
  153. GLOBAL INISTRINGS$  ''List of strings to write
  154. GLOBAL szInstIni$
  155. GLOBAL ini$
  156. GLOBAL iMaxNumTP%
  157.  
  158. ''Dialog list symbol names
  159. GLOBAL CHECKSTATES$
  160. GLOBAL STATUSTEXT$
  161. GLOBAL DRIVETEXT$
  162. GLOBAL CONFIRMTEXTIN$
  163.  
  164. GLOBAL EXPIRATION$
  165. GLOBAL SrcDir$
  166.  
  167. GLOBAL gnParentItems%
  168.  
  169. '' Function and Subroutine declarations -------------------------------------------
  170.  
  171. DECLARE SUB AddOptFilesToCopyList (ftype%)
  172. DECLARE SUB RecalcOptFiles (ftype%)
  173. DECLARE SUB RecalcPath
  174. DECLARE SUB RecalcCopyList
  175. DECLARE SUB SetDriveStatus
  176. DECLARE FUNCTION MakePath (szDir$, szFile$) AS STRING
  177. DECLARE FUNCTION Month_Year_ToStr (imonth%, iyear%, szSeparator$) AS STRING
  178. DECLARE FUNCTION ReadStrResource LIB "monthdlg.dll" (fpcPath$, iStrID%, fpcResult$, iBuffSize%) AS INTEGER
  179. DECLARE FUNCTION WriteStrResource LIB "monthdlg.dll" (fpcPath$, iStrID%, fpcStrBuff$) AS INTEGER
  180. DECLARE FUNCTION Encrypt LIB "PBINST.DLL" (fpcString$) AS INTEGER
  181. DECLARE FUNCTION MakeListIniKeys LIB "PBINST.DLL" (fpcIni$, fpcThemePack$) as INTEGER
  182. DECLARE FUNCTION PAD(szNum$) AS STRING
  183. DECLARE FUNCTION ExpandMonthKey(szMonthKey$) AS STRING
  184. Declare Function FindWindow Lib "User" (lpClassName As STRING, lpWindowName AS ANY) As Integer
  185. DECLARE FUNCTION RemoveFileFromIniKey LIB "PBINST.DLL" (fpcIni AS STRING, fpcSection AS STRING, fpcKey AS STRING, fpcFile AS STRING) AS INTEGER
  186. DECLARE FUNCTION DeleteProgmanItem LIB "PBINST.DLL" (fpcGroup AS STRING, fpcItem AS STRING) AS INTEGER
  187.